10 DEFINT A-Z:PRINT "Loading...";:PG=0:CLS:READ N
20 DIM D$(2,43):FOR I=0 TO N-1:READ D$(0,I):P$=""
30 FOR J=0 TO 7:READ C:P$=P$+CHR$(C):NEXT J:D$(1,I)=P$:NEXT I
40 KEY OFF:LOCATE 1,1,0:SH=200:H=8:ROWS=5
50 VGA=1:ON ERROR GOTO 200:SCREEN 11:ON ERROR GOTO 0
60 IF VGA=1 THEN SH=480:H=16 ELSE SCREEN 2
70 SZ=(SH\(H*ROWS))*4:WHILE PG>=0: CLS: FOR CL=0 TO (SZ\4-1): FOR R=0 TO 3
80 IDX=PG*SZ+CL*4+R:IF IDX>=N THEN GOTO 130
90 LOCATE CL*ROWS+1,R*20+1:PRINT D$(0,IDX);
100 X=R*160:Y=CL*ROWS*H+H:LINE (X,Y)-(X+156,Y+(ROWS-1)*H-2),1,B
110 PAINT (X+10,Y+10),D$(1,IDX),3
120 NEXT R: NEXT CL
130 LOCATE 1,78:PRINT HEX$(PG+1);"/";HEX$(N\SZ+1);
140 P=0:WHILE P=0:K$=INKEY$:P=0
150 IF K$=CHR$(0)+CHR$(75) AND PG>0 THEN P=1:PG=PG-1
160 IF K$=CHR$(0)+CHR$(77) AND PG<(N\SZ) THEN P=1:PG=PG+1
170 IF K$=CHR$(27) THEN P=1:PG=-1
180 WEND: WEND
190 SCREEN 0: WIDTH 80: LOCATE 1,1,1: CLS: END
200 IF ERR=5 THEN VGA=0:RESUME NEXT ELSE ON ERROR GOTO 0
1000 DATA 43
1010 DATA "50% Gray",170,85,170,85,170,85,170,85
1020 DATA "Boxes",127,65,65,65,65,65,127,0
1030 DATA "Critters",0,80,114,32,0,5,39,2
1040 DATA "Diamonds",32,80,136,80,32,0,0,0
1050 DATA "Paisley",2,7,7,2,32,80,80,32
1060 DATA "Pattern",224,128,142,136,234,10,14,0
1070 DATA "Quilt",130,68,40,17,40,68,130,1
1080 DATA "Scottie",64,192,200,120,120,72,0,0
1090 DATA "Spinner",20,12,200,121,158,19,48,40
1100 DATA "Thatch",248,116,34,71,143,23,34,113
1110 DATA "Tulip",0,0,84,124,124,56,146,124
1120 DATA "Waffle",0,0,0,0,128,128,128,240
1130 DATA "Weave",136,84,34,69,136,21,34,81
1140 DATA "Balls",136,103,7,7,136,118,112,112
1150 DATA "Bricks",16,32,64,128,65,34,20,8
1160 DATA "Bricks 2",255,32,32,32,255,2,2,2
1170 DATA "Plaid",170,85,170,85,240,240,240,240
1180 DATA "Roof",72,132,3,192,32,16,16,48
1190 DATA "Diamond 2",8,20,34,65,128,65,34,20
1200 DATA "Diamond 3",8,28,62,127,255,127,62,28
1210 DATA "Waves",36,66,129,24,36,66,129,24
1220 DATA "Waves 2",12,146,96,0,12,146,96,0
1230 DATA "Particles",128,4,32,1,16,2,64,8
1240 DATA "Particles 2",3,48,177,141,12,192,216,27
1250 DATA "Bricks 3",68,160,81,162,69,138,21,10
1260 DATA "Buttons",85,130,57,184,57,128,65,170
1270 DATA "Cargo Net",120,49,19,135,225,200,140,30
1280 DATA "Circuits",82,41,132,66,148,41,66,132
1290 DATA "Cobblestones",40,68,146,171,214,108,56,16
1300 DATA "Colosseum",130,1,1,1,171,85,170,85
1310 DATA "Daisies",225,115,39,2,64,228,206,135
1320 DATA "Dizzy",62,7,225,7,62,112,195,112
1330 DATA "Field Effect",86,89,166,154,101,149,106,169
1340 DATA "Key",254,2,250,138,186,162,190,128
1350 DATA "Live Wire",16,16,16,241,1,1,1,31
1360 DATA "Rounder",65,190,99,81,65,65,99,190
1370 DATA "Scales",30,213,218,109,170,103,193,8
1380 DATA "Stone",81,178,16,0,247,178,81,178
1390 DATA "Tile",186,125,254,255,254,125,186,85
1400 DATA "Triangles",120,248,249,251,255,8,24,56
1410 DATA "Waffle's Revenge",178,101,247,170,16,101,178,101
1420 DATA "Heart",108,146,130,130,68,40,16,0
1430 DATA "Heart 2",108,254,254,254,124,56,16,0
